home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
Recent1
/
Filer4_01.lha
/
Filer
/
Rexx
/
BatchCopy.filer
next >
Wrap
Text File
|
1996-10-27
|
2KB
|
96 lines
/*
$VER: BatchCopy.filer 2.0 (27.10.96)
Author:
Matthias Scheler <tron@lyssa.owl.de>
Function:
All selected files in the active directory listview will be uploaded
via Olaf `Olsen' Barthel's Term
History:
2.0 reworked to take advantage of Filer >= 3.x
Call:
Upload
Example for "Filer.RC":
BUTTON ...,...,"Batch Copy","BatchCopy"
*/
OPTIONS RESULTS
GETSOURCEPATH
IF RESULT="RESULT" THEN EXIT 5
SourceDir=RESULT
GETTARGETPATH
IF RESULT="RESULT" THEN EXIT 5
TargetDir=RESULT
LOCKFILER
IF RESULT="RESULT" THEN EXIT 5
Key=RESULT
PANEL OFF
'STATUS Creating batch file'
TEMPFILENAME
BatchFileName=RESULT
IF OPEN('BatchFile',BatchFileName,"WRITE")=0 THEN
DO
PANEL ON
UNLOCKFILER Key
"HISTORY Can't open batchfile."
EXIT 5
END
CALL WRITELN('BatchFile','CD "'||SourceDir||'"')
GETNUMENTRIES
Num=RESULT
DO Index=1 TO Num
GETNAME Index
Data=RESULT
Name=SUBSTR(Data,2)
IF LEFT(Data,1)="d" THEN
DO
IF RIGHT(TargetDir,1)=':' THEN
CALL WRITELN('BatchFile','Copy "'||Name||'" TO "'||TargetDir||Name||'" ALL CLONE QUIET')
ELSE
CALL WRITELN('BatchFile','Copy "'||Name||'" TO "'||TargetDir||'/'||Name||'" ALL CLONE QUIET')
TOGGLEENTRY Index
'HISTORY Added directory "'||Name||'" to batchfile.'
END
IF LEFT(Data,1)="f" THEN
DO
CALL WRITELN('BatchFile','Copy "('||Name||')" TO "'||TargetDir||'" CLONE')
TOGGLEENTRY Index
'HISTORY Added file "'||Name||'" to batchfile.'
END
END
CALL WRITELN('BatchFile','rx "'||"ADDRESS 'FilerRexx' UPDATETARGETDIR"||'"')
CALL WRITELN('BatchFile','rx "'||"ADDRESS 'FilerRexx' FILERTOFRONT"||'"')
CALL WRITELN('BatchFile','Run >NIL: Wait 2 SECS+')
CALL WRITELN('BatchFile','Delete "'||BatchFileName||'" QUIET')
CALL WRITELN('BatchFile','EndCLI >NIL:')
CALL CLOSE('BatchFile')
ADDRESS 'COMMAND' 'NewShell WINDOW CON:0/20/640/160/Batch-Copy/CLOSE FROM '||BatchFileName
FILERTOFRONT
PANEL ON
UNLOCKFILER Key
EXIT 0